10 T0=21632
20 T1=21760
30 T2=21888
40 T3=20736:T4=T3/256
50 :
100 FORX=1TO127
200 Y=128*LOG(X)/LOG(2)+.5
300 POKET0+X,YAND255
400 Y=Y/256:POKET1+X,Y+T4:POKET2+X,Y
500 NEXT
599 :
600 FORX=$01TO$037F
700 Y=2^(8-X/128):POKET3+X,Y
800 NEXT
899 :
900 POKET0,.:POKET1,T4:POKET2,.:POKET3,255